home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #11
/
uv1n11s1.d64
/
planet raiders
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
2KB
|
45 lines
1 rem planet boot-by jc hilty-uptime-10/87
2 s=54272:poke53281,0:poke53280,0:print"[147][156]....[193] short while ago...."
3 print:print"....[201]n a galaxy very, very near...."
4 poke147,0:sys57812"display.ml",8,1:sys62631
5 poke147,0:sys57812"title planet",8,1:sys62631:sys49154:gosub18
6 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4
7 poke53270,peek(53270)and239:poke53281,0
9 print"[147][144]load"chr$(34)"raiders.exe"chr$(34)",8"
10 print"run":print"[156]....[205]ay skill and luck be with you....[144]"
11 poke198,3:poke631,19:poke632,13:poke 633,13
12 end
18 forx=0to24:pokes+x,0:next
19 pokes+3,8:pokes+2,0
20 pokes+5,9:pokes+6,125
22 pokes+12,144:pokes+13,243
30 pokes+24,15
40 readhf,lf,dr:ifhf=0thenforq=0to2000:next:restore:goto40
60 pokes+1,hf:pokes,lf:pokes+8,hf:pokes+7,lf:pokes+4,65:pokes+11,33
62 fort=0todr:next
70 pokes+4,64:pokes+11,32:geta$:ifa$="[133]"thenreturn
71 goto40
110 data 4,180,125,4,180,125,4,180,125,6,71,500,9,104,500
120 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
130 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
140 data 8,97,125,7,233,125,8,97,125,7,12,500,4,180,125,4,180,125
150 data 6,71,500,9,104,500
160 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
170 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
180 data 8,97,125,7,233,125,8,97,125,7,12,500,4,180,125,4,180,125
190 data 5,71,375,5,71,125,8,97,125,7,233,125,7,12,125,6,71,125
200 data 6,71,125,7,12,125,7,233,125,7,12,125,5,71,125,5,237,250,4,180,125
210 data 4,180,125,5,71,375,5,71,125,8,97,125,7,233,125,7,12,125,6,71,125
220 data 9,104,125,7,12,125,7,12,500,4,180,125,4,180,125
230 data 5,71,375,5,71,125,8,97,125,7,233,125,7,12,125,6,71,125,6,71,125
240 data 7,12,125,7,233,125,7,12,125,5,71,125,5,237,125,9,104,125,9,104,125
250 data 12,143,125,11,48,125,9,143,125,9,104,125,8,97,125,7,180,125,7,12,125
260 data 6,71,125,9,104,750,4,180,125,4,180,125,4,180,125,6,71,500,9,104,500
270 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
280 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
290 data 8,97,125,7,233,125,8,97,125,7,12,500,4,180,125,4,180,125
300 data 6,71,500,9,104,500,8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
310 data 8,97,125,7,233,125,7,12,125,12,143,500,9,104,250
320 data 8,97,125,7,233,125,8,97,125,7,12,500,9,104,250,12,143,2000
330 data 12,143,125,12,143,125,12,143,125,12,143,500,0,0,0